home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 2
/
Gold Medal Software Volume 2 (Gold Medal) (1994).iso
/
windows
/
win31
/
macsyma.arj
/
MACSDEMO.EXE
/
TEX.OUT
< prev
next >
Wrap
Text File
|
1993-09-15
|
1KB
|
61 lines
|$label(0,15,Times New Roman,$(d0$))done
(c1) EXAMPLE(TEX);
(c2) show_macsyma_source_with_tex_code;
|$label(0,15,Times New Roman,$(d2$))true
(c3) tex_mult_space:'none$
(c4) tex("\\magnification=\\magstep2")$
C:\MACSD2B\share\tex.fas being loaded.
(c5) tex(timedate())$
(c6) tex(x^2+2*x+1=(x+1)^2, %e^x/2+%gamma+%phi+3/4)$
% X^2+2*X+1 = (X+1)^2
$$
% %E^X/2+%PHI+%GAMMA+3/4
$$
(c7) tex(sin(x)^2+cos(x)^2=1)$
% SIN(X)^2+COS(X)^2 = 1
$$
(c8) tex('integrate(f(x),x,minf,inf))$
% 'INTEGRATE(F(X),X,MINF,INF)
$$
(c9) tex('limit(g(x),x,%pi))$
% 'LIMIT(G(X),X,%PI)
$$
(c10) tex('sum(f[i],i,0,n)+'prod(g[i],i,1,m))$
% 'PRODUCT(G[I],I,1,M)+'SUM(F[I],I,0,N)
$$
(c11) tex(gamma(n)+beta(m,n))$
% GAMMA(N)+BETA(M,N)
$$
(c12) tex(x^2*'diff(y,x,2)-3*x*'diff(y,x)+4*y=0)$
% X^2*'DIFF(Y,X,2)-3*X*'DIFF(Y,X,1)+4*Y = 0
$$
(c13) tex('pdiff(f(x,y),x,2,y,3))$
% 'PDIFF(F(X,Y),X,2,Y,3)
$$
(c14) tex(sqrt(x)+x^(1/3)+nthrt(n,x))$
% SQRT(X)+X^(1/3)+NTHRT(N,X)
$$
(c15) tex("This is a random piece of text...")$
(c16) tex(theta(x)+cap_theta(x)+uncap_gamma(x))$
% UNCAP_GAMMA(X)+THETA(X)+CAP_THETA(X)
$$
(c17) tex(matrix([x+y,0],[1,x-y]))$
% MATRIX([Y+X,0],[1,X-Y])
$$
(c18) tex(a<=b)$
% A <= B
$$
(c19) tex('(not a and b))$
% not A and B
$$
|$label(0,15,Times New Roman,$(d20$))done
(c21) CLOSEFILE();